program qcmr;

uses
  Vcl.Forms,
  vcl.controls,
  main in 'main.pas' {frmmain},
  depart in 'depart.pas' {frmdepart},
  DM in 'DM.pas' {DataModule1: TDataModule},
  departdeal in 'departdeal.pas' {frmdepartdeal},
  userlist2 in 'userlist2.pas' {frmuserlist2},
  userdeal2 in 'userdeal2.pas' {frmuserdeal2},
  cldalist in 'cldalist.pas' {frmcldalist},
  serviceitem in 'serviceitem.pas' {frmserviceitem},
  wlzd in 'wlzd.pas' {frmwlzd},
  hyklx in 'hyklx.pas' {frmhyklx},
  dic in 'dic.pas' {frmdic},
  cldadeal in 'cldadeal.pas' {frmcldadeal},
  serviceitemdeal in 'serviceitemdeal.pas' {frmserviceitemdeal},
  wlzddeal in 'wlzddeal.pas' {frmwlzddeal},
  hyklxdeal in 'hyklxdeal.pas' {frmhyklxdeal},
  cangku in 'cangku.pas' {frmcangku},
  cangkudeal in 'cangkudeal.pas' {frmcangkudeal},
  cika in 'cika.pas' {frmcika},
  MyUtility in 'MyUtility.pas',
  cikadeal in 'cikadeal.pas' {frmcikadeal},
  DbHelper in 'DbHelper.pas',
  dicdeal in 'dicdeal.pas' {frmdicdeal},
  kcrkd in 'kcrkd.pas' {frmkcrkd},
  Emp in 'Emp.pas',
  kcrkdmx in 'kcrkdmx.pas' {frmkcrkdmx},
  kcrkdmx2 in 'kcrkdmx2.pas' {frmkcrkdmx2},
  kcpdb in 'kcpdb.pas' {frmkcpdb},
  kcpdbmx2 in 'kcpdbmx2.pas' {frmkcpdbmx2},
  module in 'sys\module.pas' {frmmodule},
  moduledeal in 'sys\moduledeal.pas' {frmmoduledeal},
  base in 'sys\base.pas' {frmbase},
  test in 'sys\test.pas' {frmtest},
  cyzl in 'cyzl.pas' {frmcyzl},
  App in 'sys\App.pas',
  listbase in 'sys\listbase.pas' {frmlistbase},
  userselect in 'sys\userselect.pas' {frmuserselect},
  login in 'sys\login.pas' {frmlogin},
  simplelist in 'sys\simplelist.pas' {frmsimplelist},
  CnAttrib in 'sys\components\CnAttrib.pas',
  edtbase in 'sys\edtbase.pas' {frmedtbase},
  testlist in 'sys\testlist.pas' {frmtestlist},
  userlist in 'sys\userlist.pas' {frmuserlist},
  userdeal in 'sys\userdeal.pas' {frmuserdeal},
  CnFormEvents in 'sys\components\CnFormEvents.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  //Application.NormalizeAllTopMosts;
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(Tfrmmain, frmmain);
  frmlogin:=Tfrmlogin.Create(nil);
  if frmlogin.ShowModal=mrok then
  begin
    frmlogin.Free;
    Application.Run;
  end
  else
  begin
    DataModule1.uniconn.Connected:=false;
    frmlogin.Free;
  //else
  //  Application.Terminate;
  end;
end.
